home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  433b  |  18 lines

  1. PROGRAM read_real_data_from_a_file;
  2.  
  3. VAR  hot_dog : TEXT;
  4.      index   : BYTE;
  5.      line_number : INTEGER;
  6.      real1,real2,real3 : REAL;
  7.  
  8. BEGIN  (* main program *)
  9.   ASSIGN(hot_dog,'REALDATA.TXT');
  10.   RESET(hot_dog);
  11.  
  12.   FOR index := 1 TO 7 DO
  13.   BEGIN
  14.     READLN(hot_dog,line_number,real1,real2,real3);
  15.     WRITELN(line_number:7,real1:12:3,real2:12:3,real3:12:3);
  16.   END;
  17.   CLOSE(hot_dog);
  18. END.  (* of main program *)